home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 June / MacHome Magazine Demo Disc June 2001.iso / Stuff / Software / Productivity / KnowledgeMiner 3.2.1 / AppleScript Support / data transfer FM->KM < prev    next >
Encoding:
Text File  |  2000-09-18  |  622 b   |  28 lines  |  [TEXT/ToyS]
  1.  
  2. -- read some  data from the database
  3. tell application "FileMaker Pro"
  4.     set x to every cell of field "Subtotal"
  5.     
  6.     set y to every cell of field "Bill to name"
  7. end tell
  8.  
  9. -- how many records read?
  10. set n to count x
  11.  
  12. tell application "KnowledgeMiner 3.2"
  13.     activate
  14.     
  15.     close document 1
  16.     make new document
  17.     delay 5
  18.     
  19.     set name of document 1 to "FileMaker Data Transfer"
  20.     set name of column 2 to "Subtotal"
  21.     set name of column "Sample" to "Requested by"
  22.     
  23.     repeat with i from 1 to n
  24.         set value of cell (i + 1) of column "B" to item i of x
  25.         set value of cell (i + 1) of column "Requested by" to item i of y
  26.     end repeat
  27. end tell
  28.